5 POKE53280,6:POKE53281,6
10 PRINT"[147]";:DIM A%(15),D%(72)
15 PRINT"         VERTICAL BAR CHART DEMO"
20 PRINT"F[155]ULL OR H[155]ALF COLUMN? (F[155]/H[155])  [164][157]";
22 GETA$:IFA$<>"H"ANDA$<>"F"THEN22
23 PRINTA$
25 IFA$="H"THENPM=1:GOTO40
30 PRINT"[155]DUAL COLOR?  (Y[155]/N[155])  [164][157]";
32 GETQ$:IFQ$<>"Y"ANDQ$<>"N"THEN32
33 PRINTQ$
35 IF Q$="Y" THEN DC=3
40 PRINT"ZERO BOTTOM?  (Y[155]/N[155])  [164][157]";
42 GETQ$:IFQ$<>"Y"ANDQ$<>"N"THEN42
43 PRINTQ$
45 IF Q$="N" THEN Z=1
50 NB=36:I=2:IF B OR DC THEN NB=72:I=1
60 FOR X=1 TO NB STEP 2:D%(X)=(40*RND(1)+1)*Z: REM BOTTOM
70 D%(X+1)=D%(X)+99*RND(1)+8: REM TOP
80 IF D%(X+1)>D%(0) THEN D%(0)=D%(X+1): REM HIGHEST TOP
90 NEXT
100 DATA 97,126,97,123
110 FOR X=0TO3:READ A%(X):NEXT:R=2
120 IF B=0 THEN FOR X=0TO15:READ A%(X):NEXT:R=8
130 DATA 224,228,239,249,226,120,119,99,224,100,111,121,98,248,247,227
140 HV=R*20:S%=1+D%(0)/HV:IV=S%*R
150 PRINT CHR$(147)"DEMO CHART":FOR X=1 TO 40:L$=L$+CHR$(164):NEXT
160 FOR X=20 TO 0 STEP-1:X$=MID$(STR$(IV*X),2)
170 P$=X$+LEFT$(L$,40-LEN(X$)):PRINT P$;:NEXT:X%=1
175 PRINT"[145]                                       ";
176 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][145]";
180 FOR X=1 TO NB STEP 2:B%=D%(X)/S%:T%=D%(X+1)/S%
190 E=B%-(INT(B%/R)*R):GOSUB240:E=R
200 B%=B%+R:IF B%<T% THEN GOSUB 240:GOTO 200
210 B%=T%:E=T%-(INT(T%/R)*R):IF E THEN E=E+R:GOSUB 240
220 IF DC THEN CC=ABS(CC-1)
230 X%=X%+I:NEXT:GOTO300
240 Y%=B%/R:SA=1866-(Y%*40)+X%:POKE SA,A%(E):IFPMTHENPOKESA+1,A%(E)
250 POKESA+54272,DC-CC:IFPMTHENPOKESA+54272+1,DC-CC
260 RETURN
300 PRINT"[154] PRESS [159]A [154]TO SEE ANOTHER DEMO, [159]Q [154]TO QUIT"
310 GETA$:IFA$<>"A"ANDA$<>"Q"THEN310
320 IFA$="A"THENRUN
330 PRINT"[147]";:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
335 IFER<>63THENEND
340 LOAD"HELLO CONNECT",8